home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / beer.lha / Beer / Beer.asc
Text File  |  1997-02-19  |  2KB  |  47 lines
  1. 'Loony Juice software present: 
  2. '
  3. ' *Finaly a use for the 'Say' command!*
  4. '  
  5. 'Why have I written this.  When I sat down this wasnt what I was going 
  6. 'to do.  Actually I enjoyed doing this better than what I had planned
  7. 'and now I can't remember what I was going to do.
  8. 'For some reason this crashes Amos 1.35 but who cares.  Then again 
  9. 'thats probbably down to dodgy SIMM's. 
  10. 'How do birds fly in strong wind? Bacwards I suppose.
  11. 'You could stick a timer in this, compile it and use it as a screen saver! 
  12. 'But then again probably not.
  13. 'Why not email me for a good old chin wag! 
  14. 'You can't chin wag over wires so we'll have to come up with another 
  15. 'name for a good natter. 
  16. '19th Feb 1997.
  17. 'L.A.ATKINS@UCLAN.AC.UK
  18. '
  19. Set Talk 0,0,130,180
  20. Dim NUM$(18)
  21. For Q=1 To 18
  22.    Read NUM$(Q)
  23. Next Q
  24. For Q=99 To 2 Step -1
  25.    SNUM$=""
  26.    If Q<10 Then SNUM$=SNUM$+Str$(Q)
  27.    If Q>9 and Q<20 Then SNUM$=SNUM$+NUM$(Q-9)
  28.    If Q>19
  29.       P$=Str$(Q)
  30.       P=Val(Left$(P$,2))
  31.       SNUM$=SNUM$+NUM$(9+P)
  32.       If Val(Right$(P$,1))>0
  33.          SNUM$=SNUM$+Right$(P$,1)
  34.       End If 
  35.    End If 
  36.    SENT$=SNUM$+" bottles of beer on the wall, "+SNUM$+" bottles of beer, "
  37.    SENT$=SENT$+"take one down and pass it around "+SNUM$+" bottles of beer."
  38.    Say SENT$
  39. Next Q
  40. S$="one bottle of beer on the wall, one bottle of beer, take it down and pass "
  41. S$=S$+"it around one bottle of beer."
  42. Say S$
  43. Say "hay, we're out of beer."
  44. Data "ten","elevn","twelv","thirteen","forteen","fifteen","sixteen"
  45. Data "seventeen","eighteen","nine teen","twenty","thirty","forty"
  46. Data "fifty","sixty","seventy","eighty","nighntiy"
  47.